package body ejemplo1
is
   procedure nuevop(uno:in out integer)
      is
      i:integer;
   begin
      I:=1;
      Uno:=I;
   end nuevop;

   procedure Ejemplo1(var5:in out Boolean)
   is
   begin
      return;
   end Ejemplo1;

begin
   uno := 2;
end ejemplo1;
